home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Magazine / Online / OpenURL / Rexx / OpenURL.rexx next >
OS/2 REXX Batch file  |  1999-09-26  |  686b  |  32 lines
  1. /* OpenURL.rexx */
  2. PARSE ARG url
  3. OPTIONS RESULTS
  4.  
  5. /* Load the openurl.library as a function host */
  6. IF ~SHOW('L','openurl.library') THEN
  7.    CALL ADDLIB('openurl.library',3,-66)
  8.  
  9.    IF url="" THEN DO
  10.       SAY "Usage:"
  11.       SAY "  rx OpenURL <url>"
  12.       EXIT
  13.    END
  14.  
  15.    SAY "Opening URL in new browser window..."
  16.    success = OpenURL(url, SHOW, TOFRONT, NEWWIN, LAUNCH)
  17.  
  18.    IF success=0 THEN
  19.       SAY "Failed to open URL"
  20.    ELSE
  21.       SAY "Succeeded in opening URL"
  22.  
  23.    SAY "Launching OpenURL prefs program..."
  24.    success = OpenURLPrefs()
  25.  
  26.    IF success=0 THEN
  27.       SAY "Failed to launch OpenURL prefs program"
  28.    ELSE
  29.       SAY "Succeeded in launching OpenURL prefs program"
  30.  
  31. EXIT
  32.